home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol025 / a2.spc next >
Encoding:
Text File  |  1987-01-11  |  2.3 KB  |  47 lines
  1. 100 '**ADVENTURE (CHAINED)**
  2. 110 '**LIFEBOAT DOCKING*****
  3. 120 SCREEN 0,1
  4. 125 PLAY "mb"
  5. 130 CLS
  6. 134 CLEAR
  7. 135 LOCATE 25,1:PRINT"--Starcast transmission on Dec.23, 2101"
  8. 140 N$="NEWSLINE"
  9. 145 COLOR 9:LOCATE 22,1,0
  10. 150 FOR I=1 TO LEN(N$)
  11. 160 LOCATE 2,1:PRINT LEFT$(N$,I)
  12. 170 SOUND 1800,2
  13. 180 FOR U=1 TO 110:NEXT U,I
  14. 190 COLOR 7
  15. 195 PRINT
  16. 200 PRINT"DECEMBER 23, 2101"
  17. 220 PRINT"ßPROCYON SYSTEM (AP)"
  18. 230 PRINT:PRINT"Luxury liner 'Adonis' suffered a fusion":PRINT"torch overload and exploded while she":PRINT"was in passage to ßProcyon II. One"
  19. 240 PRINT"lifepod reportedly escaped the disaster":PRINT"by a few seconds.":PRINT:PRINT"The lifepod and its occupants(?) is as"
  20. 250 PRINT"of now in an unknown location. We must":PRINT"assume there were no survivors...":PRINT:PRINT"The ship took 1200 passengers and crew":PRINT"with her. "
  21. 260 PRINT:PRINT"A board of inquiry is being formed-":PRINT"They will investigate the circumstances":PRINT"surrounding the tragedy.  "
  22. 261 DEF SEG:POKE 106,0
  23. 265 G$=INKEY$:IF G$> ""THEN 280
  24. 270 GOTO 261
  25. 280 SCREEN 1:COLOR 0
  26. 290 FOR I=10 TO 0 STEP -1
  27. 300 LOCATE 12,17 :PRINT I;" "
  28. 310 SOUND 1300,.06:SOUND 1200,.06
  29. 320 FOR G=1 TO 300:NEXT G
  30. 330 NEXT I
  31. 340 FOR I=37 TO 3000 STEP 10
  32. 350 SOUND I,.01
  33. 360 NEXT I
  34. 365 SOUND 37,1
  35. 370 SCREEN 1:CLS
  36. 380 COLOR 0
  37. 390 PRINT"You are the last survivor of the late":PRINT"starship 'Adonis'. Your lifepod entered the atmosphere of the 4th planet  and "
  38. 400 PRINT"you were paradropped over a large, open area. You now have nothing except the   clothes on your body. "
  39. 410       PRINT:  PRINT"The planet is classed as habitable but  dangerous. The only human population    is a MET station crew but they have     not been heard from in two years."
  40. 420 PRINT"The most immediate danger factors are   the Plain Storms, violent dust hurri-   canes that often sweep over this area."
  41. 430       PRINT:PRINT"You had better find shelter and some    means of protecting yourself.  The MET  station is around the plain somewhere,  and once you find that you should be    ok. Maybe. Perhaps."
  42. 440 PRINT:PRINT"chuckle, chuckle, have fun, buddy..."
  43. 450 X$=INPUT$(1):IF X$<>"" THEN CHAIN "alien.SPC",ALL
  44. 460 GOTO 450
  45. "
  46. 440 PRINT:PRINT"chuckle, chuckle, have fun, buddy..."
  47. 450 X$=INPUT$(1):IF X$<>"" THEN CHAIN "a